home *** CD-ROM | disk | FTP | other *** search
/ MacHome 1999 February/March / MacHome CD (February and March 1999).iso / Edutainment / INFOHIGHWAYDEMOS / demo / MENU.DCR / scripts_22.ls < prev    next >
Encoding:
Text File  |  1999-09-16  |  890 b   |  31 lines
  1. on enterFrame
  2.   set ActiveStartspr to 3
  3.   set revolutionNumerique to ActiveStartspr
  4.   set startBall to 4
  5.   set revolutionNumeriqueBall to startBall + 6
  6.   set numerisationBall to startBall + 7
  7.   set startHighLightSpr to 12
  8.   set numerisation to startHighLightSpr
  9.   set startHotSpot to 13
  10.   set numerisationHS to startHotSpot
  11.   set ro to rollOver()
  12.   puppetizeExclude(0, ro - (startHotSpot - startHighLightSpr), numerisation, numerisation)
  13.   case ro of
  14.     revolutionNumerique, revolutionNumeriqueBall:
  15.       go(the frame)
  16.     numerisationHS, numerisationBall:
  17.       puppetSprite(numerisation, 1)
  18.       set the member of sprite numerisation to member "revolutionNumeriquenumerisation"
  19.       updateStage()
  20.       go(the frame)
  21.     otherwise:
  22.       depuppetize(numerisation, numerisation)
  23.       updateStage()
  24.       go("revolutionNumeriqueClose")
  25.   end case
  26. end
  27.  
  28. on exitFrame
  29.   go(the frame)
  30. end
  31.